Public Class clsContacts
    Private sUsername As String
    Private iUID As Integer
    Private sDisplayName As String
    'not yet in use
    Private sDisplayMsg As String
    'not yet in use
    Private sStatus As String
    Private bOnline As Boolean
    Public Event statusChanged(ByVal sUsername As String, ByVal bOnline As Boolean)
    Public Property Username() As String
        Get
            Username = sUsername
        End Get
        Set(ByVal Value As String)
            sUsername = Value
        End Set
    End Property
    Public Property UID() As Integer
        Get
            UID = iUID
        End Get
        Set(ByVal Value As Integer)
            iUID = Value
        End Set
    End Property
    Public Property DisplayName() As String
        Get
            DisplayName = sDisplayName
        End Get
        Set(ByVal Value As String)
            sDisplayName = Value
        End Set
    End Property
    Public Property Online() As Boolean
        Get
            Online = bOnline
        End Get
        Set(ByVal Value As Boolean)
            bOnline = Value
            RaiseEvent statusChanged(sUsername, Value)
        End Set
    End Property
End Class
